<%


Function torneio_maior_grupo(conexao, grupos, total)

				DIM i, j, max(2)
				
				for i=0 to 2
					max(i) = 0
				next
				
				for i=0 to total-1
				
						if grupos(i,1)>max(0) or (grupos(i,1)=max(0) AND (grupos(i,2)>max(1) or (grupos(i,2)=max(1) AND (grupos(i,3)>max(2))))) then
						
							for j=0 to 2
								max(j) = grupos(i,j+1)
								id=i
							next
							
						End If
					
				Next
						
						torneio_maior_grupo = id
						
End Function

Function torneio_atualziar_vantagem (conexao, grupos, id_clube, max_grupo)

			str = "Select vantagem FROM torneios_lista where id_grupo="&grupos(max_grupo,0)&" AND id_clube="&id_clube
    		Set rsV = conexao.Execute(str)
			
			If not rsV.eof then
			
				grupos(max_grupo,3) = rsV("vantagem")
			
			End If


End Function

Function torneio_grupo_status_ativar(conexao, id)
		
		str = "Select id FROM torneios_grupos where id="&id&" AND status=0"
    		Set rs = conexao.Execute(str)	
		
		if not rs.eof then
		
			 	str = "UPDATE torneios_grupos SET "
				str = str & "status='1' " 
				str = str & " WHERE id="&id
				Set rsI = conexao.Execute(str)
		
		ENd If
		

End Function

Function torneio_grupo_status_desativar(conexao, id)
		
		str = "Select id FROM torneios_grupos where id="&id&" AND status=1"
    		Set rs = conexao.Execute(str)	
		
		if not rs.eof then
		
			 	str = "UPDATE torneios_grupos SET "
				str = str & "status='0' " 
				str = str & " WHERE id="&id
				Set rsI = conexao.Execute(str)
		
		ENd If
		

End Function

Function torneio_grupo_status_finalizar(conexao, id)
		
		str = "Select id FROM torneios_grupos where id="&id&" AND status=1"
    		Set rs = conexao.Execute(str)	
		
		if not rs.eof then
		
			 	str = "UPDATE torneios_grupos SET "
				str = str & "status='2' " 
				str = str & " WHERE id="&id
				Set rsI = conexao.Execute(str)
		
		ENd If
		

End Function

Function torneio_grupo_acesso(conexao, id, acesso)
		
		
			str = "UPDATE torneios_grupos SET "
			str = str & "acesso='"&acesso&"' " 
			str = str & " WHERE id="&id
			Set rsI = conexao.Execute(str)
		

End Function


Function torneio_grupo_meio(conexao, id, meio)
		
		
			str = "UPDATE torneios_grupos SET "
			str = str & "meio='"&meio&"' " 
			str = str & " WHERE id="&id
			Set rsI = conexao.Execute(str)
		

End Function

Function torneio_grupo_rebaixamento(conexao, id, rebaixamento)
		
		
			str = "UPDATE torneios_grupos SET "
			str = str & "rebaixamento='"&rebaixamento&"' " 
			str = str & " WHERE id="&id
			Set rsI = conexao.Execute(str)
		

End Function

%>
